www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\admindown\D_edit_acticle.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
Server.ScriptTimeout = 99999
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<!--#include file=../inc/inc_sys.asp-->
<!--#include file=../../inc/ND_class_function.asp-->
<!--#include file=inc_lanmu_bl.asp-->
<%
AJAXshowLoader()
%>
<style type="text/css">
<!--
.STYLE3 {
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<div id="divProcessing" style="width:200px;height:30px;position:absolute;display:none">
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" width="100%" height="100%"><tr><td bgcolor=#0650D2><marquee align="middle" behavior="alternate" scrollamount="5" style="font-size:9pt"><font color=#FFFFFF>...正在保存远程图片...请等待...</font></marquee></td></tr></table>
</div>
<br />
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">
<%
sys_content_type=trim(request("sys_content_type"))
set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),2)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if
biao="[ND_down_class]"
biaog="[ND_userGroup]"
biaosp="[ND_down_Special]"
biao2="[ND_down]"
set rs22=server.CreateObject("adodb.recordset")
rs22.open "select * from "&biao2&" where id="&request("id"),conn,1,1
execute("aaeee=sy"&"s_u"&"r"&"l_"&"g"&"et")
execute("aaeee2=sy"&"s_ur"&"l_g"&"et"&"_b")
if cstr(aaeee)<>cstr(aaeee2) or aaeee="" then
response.redirect "../D_admin"&"_s"&"e.asp"
response.end
end if
if sys_content_type="" then
%>
<script language="javascript">
alert("url参数sys_content_type不能为空");
</script>
<%
response.end
end if
%>
<script src="../../ND_editor/FCKeditor2_5/FCKeditor.js"></script>
<script type="text/javascript">
<!--
function remoteUpload(o) {
try{
var strText = GetContentHTML() ;
var divProcessing=document.getElementById("divProcessing");
var objField = document.getElementsByName("content_UploadText")[0];
objField.value = strText ;
if (o) {
divProcessing.style.top = 1050 ;
divProcessing.style.left = 200 ;
divProcessing.style.display = "";
document.remoteuploadb.submit();
}else{
divProcessing.style.display = "none";
}
}
catch(e){}
}
function remoteUploadok() {
try{
divProcessing.style.display = "none";
}
catch(e){}
}
function GetContentHTML(){
var strHTML ;
try{
var oEditor = FCKeditorAPI.GetInstance('Content') ;
strHTML = oEditor.GetXHTML()
}
catch(e){
strHTML = '';
}
return strHTML
}
var sLinkOriginalFileName = "originalfilename" ;
var sLinkSaveFileName = "savefilename" ;
var sLinkSavePathFileName = "UploadFileList" ;
function addUploadFile(originalFileName, saveFileName, savePathFileName){
doInterfaceUpload(sLinkOriginalFileName, originalFileName);
doInterfaceUpload(sLinkSaveFileName, saveFileName);
doInterfaceUpload(sLinkSavePathFileName, savePathFileName);
}
function doInterfaceUpload(strLinkName, strValue){
if (strValue=="") return;
if (strLinkName){
var objLinkUpload = document.getElementsByName(strLinkName)[0];
if (objLinkUpload){
if (objLinkUpload.value!=""){
objLinkUpload.value = objLinkUpload.value + "|";
}
objLinkUpload.value = objLinkUpload.value + strValue;
objLinkUpload.fireEvent("onchange");
}
}
}
function doChange(objText, objDrop){
if (!objDrop) return;
//if(document.myform.BriefTopic.selectedIndex<2){
// document.myform.BriefTopic.selectedIndex+=1;
//}
var str = objText.value;
var arr = str.split("|");
var nIndex = objDrop.selectedIndex;
objDrop.length=1;
for (var i=0; i<arr.length; i++){
objDrop.options[objDrop.length] = new Option(arr[i], arr[i]);
}
objDrop.selectedIndex = nIndex;
}
//-->
</script>
<%
function next_cen(pid_list,deepth)
set rs=server.CreateObject("adodb.recordset")
pppcid="-123"
if pid_list<>"" then
ppplista=split(pid_list,",")
ppplistaubd=ubound(ppplista)-1
pppcid=ppplista(ppplistaubd)
end if
rs.open "select * from "&biao&" where ((deepth="&deepth&" and ((parent_id_list like '%"&pid_list&"%') or (parent_id='"&pppcid&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))
else
p_id=0
end if
do while not rs.eof
pid_list222=rs("parent_id_list")&","&rs("id")&","
deepth222=rs("deepth")+1
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and ((parent_id_list like '%"&pid_list222&"%') or (parent_id='"&rs("id")&"'))) and sys_content_type='"&sys_content_type&"') order by orders asc",conn,1,1
if rs2.eof then
if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))
else
p_id=0
end if
if p_id=0 then p_id=-1
'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf
%>
<option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(rs22("classid")) then response.write "selected"%>>
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%>
</option>
<%
if not rs.eof then rs.movenext
if rs.eof or rs.bof then
'response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
else
need_benji_next=1
end if
else
'response.write "<level0 id="""&rs("id")&""" parentTypeID="""
'if deepth=0 then response.write "-1" else response.write p_id
'response.write """ caption="""&rs("ClassName")&""" PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf
%>
<option value="<%=rs("id")%>" <%if cstr(rs("id"))=cstr(rs22("classid")) then response.write "selected"%>>
<%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>
├<%
else
%>
│<%
end if
next
%><%=rs("classname")%>
</option>
<%
call next_cen(pid_list222,deepth222)
if not rs.eof then rs.movenext
need_benji_next=1
if rs.eof or rs.bof then
'if deepth<>0 then response.write "</level0>"
'call next_cen_class(pid_list222,deepth222)
exit function
end if
end if
if need_benji_next=0 then
exit do
end if
need_benji_next=0
loop
end function
%>
<script language= JavaScript>
function SelectPic(){
var arr=window.open('../D_select_upload_pic.asp', '', 'titlebar=no, toolbar=no, scrollbar=yes,Width=800, Height=600');
if(arr!=null){
//var ss=arr.split('|');
//document.all.myform.ImageUrl.value=ss[0];
//document.myform.ImageFileList.value=ss[0];
}
else
{
alert("弹出窗口被系统拦截掉了,请修改你系统设置")
}
}
</script>
<form action="D_chk_edit_acticle.asp" method="post" target="_self" name="myform" id="myform">
<table height="30" width=730 border="0" cellpadding="2" cellspacing="0" bordercolor="#999999" style="border:#999999 1px">
<tr>
<td>
<table height="924" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td height="30" align="center" class="adminth" colspan="4"><span class="STYLE3">修改下载 </span></td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong>所属分类：</strong></td>
<td width="273" height="30" align="left" bgcolor="#EDF8FE">
<select size="1" name="classid">
<option value="no">请选择分类</option>
<%
set rseee=server.CreateObject("adodb.recordset")
rseee.open "select * from "&biao&" where sys_content_type='"&sys_content_type&"'",conn,1,1
if rseee.eof then
%>
<script language="javascript">
alert("没有分类，请先添加分类");
</script>
<%
response.end
end if
call next_cen("",0)
%>
</select>
<font color="red">*</font></td>
<td width="114" align="left" bgcolor="#FFFFFF"><strong>所属专题：</strong></td>
<td width="180" align="left" bgcolor="#EDF8FE">
<select size="1" name="spcid">
<%
set rseee2=server.CreateObject("adodb.recordset")
rseee2.open "select * from "&biaosp&" where sys_content_type='"&sys_content_type&"'",conn,1,1
if rseee2.eof then
%>
<option value="no">没有专题</option>
<%
else
%>
<option value="no">请选择专题</option>
<%
do while not rseee2.eof
%>
<option value="<%=rseee2("id")%>" <%if cstr(rseee2("id"))=cstr(rs22("SpecialID")) then response.write "selected" %>><%=rseee2("Specialname")%></option>
<%
rseee2.movenext
loop
end if
%>
</select>
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong>软件名称：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3"><input name="title" type="text" id="title" size="60" value="<%=Rs22("title")%>">
<font color="red">*</font></td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong>软件版本：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3"><input name="tver" type="text" id="tver" size="60" value="<%=Rs22("sver")%>">
</td>
</tr>
<script language="javascript">
function ToRunsystem(addTitle) {
var revisedTitle;
var currentTitle;
currentTitle = document.myform.RunSystem.value;
revisedTitle = currentTitle+addTitle;
document.myform.RunSystem.value=revisedTitle;
document.myform.RunSystem.focus();
return;
}
</script>
<tr>
<td align="right" bgcolor="#FFFFFF" class="TableRow2"><b>软件运行环境：</b></td>
<td colspan="3" bgcolor="#EDF8FE" class="TableRow1"><input name="RunSystem" type="text" size="60" value="<%=Rs22("srun")%>">
<br>
<a href='javascript:ToRunsystem("Win9X/")'><u>Win9X/</u></a> | <a href='javascript:ToRunsystem("ME/")'><u>ME/</u></a> | <a href='javascript:ToRunsystem("NT/")'><u>NT/</u></a> | <a href='javascript:ToRunsystem("2000/")'><u>2000/</u></a> | <a href='javascript:ToRunsystem("XP/")'><u>XP/</u></a> | <a href='javascript:ToRunsystem("2003/")'><u>2003/</u></a> | <a href='javascript:ToRunsystem("Vista/")'><u>Vista/</u></a> | <a href='javascript:ToRunsystem("Linux/")'><u>Linux/</u></a> | <a href='javascript:ToRunsystem("Unix/")'><u>Unix/</u></a> | <a href='javascript:ToRunsystem("Mac/")'><u>Mac/</u></a> |
</td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="TableRow2"><b>软件性质：</b></td>
<td colspan="3" bgcolor="#EDF8FE" class="TableRow1">
<input name="SoftType" type="text" size="10" value="<%=Rs22("soft_lx")%>">
<select name="ArraySoftType2" onChange="SoftType.value=this.value;"> <option value="国产软件">选择软件类型</option> <option value="国产软件">国产软件</option> <option value="国外软件">国外软件</option> <option value="汉化补丁">汉化补丁</option> <option value="源码程序">源码程序</option> </select> <input name="impower" type="text" size="10" value="<%=Rs22("gongxiang_soft_or_mianfei")%>">
<select name="impower2" onChange="impower.value=this.value;"> <option value="共享版">选择授权方式</option> <option value="共享版">共享版</option> <option value="免费版">免费版</option> <option value="自由版">自由版</option> <option value="试用版">试用版</option> <option value="演示版">演示版</option> <option value="商业版">商业版</option> </select> <input name="Languages" type="text" size="10" value="<%=Rs22("soft_lang")%>">
<select name="Languages2" onChange="Languages.value=this.value;"> <option value="简体中文">请选择语言</option> <option value="简体中文">简体中文</option> <option value="繁体中文">繁体中文</option> <option value="英文">英文</option> <option value="多国语言">多国语言</option> </select></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF" class="TableRow2"><b>软件大小：</b></td>
<td colspan="3" bgcolor="#EDF8FE" class="TableRow1">
<input type="text" name="SoftSize" id="filesize" size="14" onkeyup=if(isNaN(this.value))this.value='' value='<%=Rs22("soft_size")%>'>
<input name="SizeUnit" type="radio" value="KB" <%if rs22("SizeUnit")="KB" then response.write "checked"%>> KB <input type="radio" name="SizeUnit" value="MB" <%if rs22("SizeUnit")="MB" then response.write "checked"%>> MB <font color="#FF0000">！</font> </td>
</tr>
<tr>
<td height="22" align="right" bgcolor="#FFFFFF" class="TableRow2"><b>联系方式：</b></td>
<td bgcolor="#EDF8FE" class="TableRow1">
<input name="Contact" type="text" value="<%=Rs22("lianxi_fangshi")%>" size="33" >
</td>
<td align="right" bgcolor="#EDF8FE" class="TableRow2"><b>程序主页：</b></td>
<td bgcolor="#EDF8FE" class="TableRow1">
<input name="Homepage" type="text" value="<%=Rs22("soft_guangfan_url")%>" size="30" >
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong><b>标题样式</b>：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
颜色：
<select size="1" name="ColorMode">
<option value="0" <%if rs22("titleColor")="0" then response.write "selected"%>>请选择颜色</option>
<option style="background-color:#FF0000;color: #FF0000" value='#FF0000' <%if rs22("titleColor")="#FF0000" then response.write "selected"%>>#FF0000</option>
<option style="background-color:#0000FF;color: #0000FF" value='#0000FF' <%if rs22("titleColor")="#0000FF" then response.write "selected"%>>#0000FF</option>
<option style="background-color:#008800;color: #008800" value='#008800' <%if rs22("titleColor")="#008800" then response.write "selected"%>>#008800</option>
<option style="background-color:#FFFF00;color: #FFFF00" value='#FFFF00' <%if rs22("titleColor")="#FFFF00" then response.write "selected"%>>#FFFF00</option>
<option style="background-color:#9900FF;color: #9900FF" value='#9900FF' <%if rs22("titleColor")="#9900FF" then response.write "selected"%>>#9900FF</option>
<option style="background-color:#808080;color: #808080" value='#808080' <%if rs22("titleColor")="#808080" then response.write "selected"%>>#808080</option>
<option style="background-color:#00FFFF;color: #00FFFF" value='#00FFFF' <%if rs22("titleColor")="#00FFFF" then response.write "selected"%>>#00FFFF</option>
<option style="background-color:#998566;color: #998566" value='#998566' <%if rs22("titleColor")="#998566" then response.write "selected"%>>#998566</option>
<option style="background-color:#FFCC00;color: #FFCC00" value='#FFCC00' <%if rs22("titleColor")="#FFCC00" then response.write "selected"%>>#FFCC00</option>
</select> 字体：
<select size="1" name="FontMode">
<option value="0" <%if rs22("titleFont")="0" then response.write "selected"%>>请选择字体</option>
<option value="1" <%if rs22("titleFont")="1" then response.write "selected"%>>粗体</option>
<option value="2" <%if rs22("titleFont")="2" then response.write "selected"%>>斜体</option>
<option value="3" <%if rs22("titleFont")="3" then response.write "selected"%>>下划线</option>
<option value="4" <%if rs22("titleFont")="4" then response.write "selected"%>>粗体+斜体</option>
<option value="5" <%if rs22("titleFont")="5" then response.write "selected"%>>粗体+下划线</option>
<option value="6" <%if rs22("titleFont")="6" then response.write "selected"%>>斜体+下划线</option>
</select>
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong><b>副 标 题</b>：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input name="subtitle" type="text" id="subtitle" size="60" value="<%=Rs22("sub_title")%>">
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><b>其它选项：</b></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input name="isTop" type="checkbox" id="isTop" value="1" <%If Rs22("isTop") <> 0 Then Response.Write (" checked")%>>
文章置顶
<input name="isBest" type="checkbox" id="isBest" value="1" <%If Rs22("is_tuijian") <> 0 Then Response.Write (" checked")%>>
文章推荐
<input name="Forbidac" type="checkbox" id="Forbidac" value="1" <%If Rs22("is_can_pinlun") <> 0 Then Response.Write (" checked")%>>
可以发表评论
<%
set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from ND_channel where sys_content_type_name='"&sys_content_type&"' and lanmu_type='"&lanmu_taba&"'",conn,1,1
if find_dataw(lanmu_taba,rs44g("id"),8)<>"1" and qx_if_max=0 then
%>
<input name="issh1" type="checkbox" id="issh1" disabled="disabled" value="1" <%If Rs22("is_shenhe") <> 0 Then Response.Write (" checked")%>>
<input name="issh" type="hidden" id="issh" value="<%=Rs22("is_shenhe")%>">
<%else%>
<input name="issh" type="checkbox" id="issh" value="1" <%If Rs22("is_shenhe") <> 0 Then Response.Write (" checked")%>>
<%end if%>
是否已审核
</td>
</tr>
<script language="javascript">
function show1(yn){
ss=yn;
if (ss=="1"){
document.getElementById("curl1").style.display='';
}
else
{
document.getElementById("curl1").style.display='none';
}
}
</script>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong>是否转向连接</strong>: </td>
<td width="565" height="30" align="left" bgcolor="#EDF8FE" colspan="3">
<input type="radio" name="isoutLink" value="0" onclick="show1(0)" <%if rs22("is_outlink")="0" then response.write "checked"%>> 否
<input type="radio" name="isoutLink" onclick="show1(1)" value="1" <%if rs22("is_outlink")="1" then response.write "checked"%>> 是
</td>
</tr>
<tr id="curl1" style="display:none">
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong>转向连接URL</strong> </td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input type="text" name="TurnLinkUrl" size="45" value="<%=Rs22("outlink")%>">
</td>
</tr>
<script language="javascript">
sss=document.getElementById("curl1");
<%if rs22("is_outlink")="1" then response.write "sss.style.display='';"%>
</script>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong>浏览等级</strong> </td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<select size="1" name="liulanggroup">
<%
set rs8=server.CreateObject("adodb.recordset")
rs8.open "select * from "&biaog&" order by clng(grades) asc",conn,1,1
do while not rs8.eof
%>
<option value='<%=rs8("id")%>' <%if cstr(rs8("id"))=rs22("liulang_dengji_group_id") then response.write "selected"%> ><%=rs8("name")%></option>
<%rs8.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong><b>所需点数</b>：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input name="PointNum" type="text" size="10" value="<%=Rs22("dianshuo_to_look")%>">
对匿名用户和管理员无效
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong><b>软件价格</b>：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input name="SoftPrice" type="text" size="10" value="<%=Rs22("soft_money")%>">
元
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong><b>解压密码</b>：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input type="text" name="Decode" size="15" maxlength="100" value='<%=Rs22("zip_pwd")%>'>
<font color="#808080">没有请留空</font>
</td>
</tr>
<tr>
<%m_intPlugin=Rs22("if_have_chajian")%>
<td align="right" bgcolor="#FFFFFF" class="TableRow2"><b>插件情况：</b></td>
<td colspan="3" bgcolor="#EDF8FE" class="TableRow1"> <select name="plugin">
<option value="0"<%If m_intPlugin = 0 Then Response.Write (" selected")%>>↓插件使用情况↓</option>
<option value="1"<%If m_intPlugin = 1 Then Response.Write (" selected")%>>无插件-无病毒</option>
<option value="2"<%If m_intPlugin = 2 Then Response.Write (" selected")%>>有插件-可选择</option>
<option value="3"<%If m_intPlugin = 3 Then Response.Write (" selected")%>>凝有毒-未确认</option>
<option value="4"<%If m_intPlugin = 4 Then Response.Write (" selected")%>>有插件-无选择</option>
<option value="5"<%If m_intPlugin = 5 Then Response.Write (" selected")%>>有病毒-已确认</option>
<option value="6"<%If m_intPlugin = 6 Then Response.Write (" selected")%>>尚未认证</option>
<option value="7"<%If m_intPlugin = 7 Then Response.Write (" selected")%>>未通过-暂停下载</option>
</select></td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><strong><b>相关下载</b>：</strong></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<input name="Related" type="text" id="Related" size="60" value="<%=Rs22("xiangguan_down_keywords_list")%>">
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><b>更新时间：</b></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3"><input name="WriteTime" type="text" id="WriteTime" size="25" value="<%=rs22("WriteTime")%>">
<font color="red">*</font></td>
</tr>
<tr>
<td width="163" bgcolor="#ffffff" align="center" ><strong>注册网址<b>：</b></strong></td>
<td colspan="3" width="720" bgcolor="#EDF8FE"><input name="regurl" type="text" size="50" value="<%=Rs22("reg_url")%>"></td>
</tr>
<tr>
<td width="163" bgcolor="#ffffff" align="center" ><strong><b>软件作者：</b></strong></td>
<td colspan="3" width="720" bgcolor="#EDF8FE"><input name="Author" type="text" size="30" value="<%=Rs22("Author_nick")%>">
<select name="font2" onChange="Author.value=this.value;">
<option value="" selected>选择作者</option>
<option value="佚名">佚名</option> <option value="本站">本站</option> <option value="不详">不详</option> <option value="未知">未知</option>
</select></td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><b>上传图片<br />
或文件：</b></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3"><iframe name="image" frameborder="0" width='100%' height="69" scrolling="no" src="../D_upfile.asp"></iframe></td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff">
<strong><b>介绍：</b></strong><br>介绍 分页标签<br>[page_fenye]<br>请注意标签字母小写</td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<textarea name="Content" id="Content" style="display:none"><%=replace(replace_textare_for_editor(Rs22("content")&""),"%",chr(37))%></textarea>
<script type="text/javascript">
<!--
var oFCKeditor = new FCKeditor('Content') ;
oFCKeditor.BasePath = '../../ND_editor/FCKeditor2_5/' ;
oFCKeditor.ToolbarSet = 'Default' ;
oFCKeditor.Width = '600' ;
oFCKeditor.Height = '500' ;
oFCKeditor.Value = '' ;
oFCKeditor.ReplaceTextarea() ;
var oEditorb;
function FCKeditor_OnComplete( editorInstance )
{
//alert("3423");
oEditorb = FCKeditorAPI.GetInstance('Content') ;
}
function updatefck(str){
oEditorb.SetHTML(str);
}
//-->
</script>
</td>
</tr>
<tr>
<td width="163" height="34" align="center" bgcolor="#ffffff"><b>保存远程图片：</b></td>
<td width="720" colspan="3" align="left" valign="top" bgcolor="#EDF8FE">
<input name="AutoRemote" type="button" onClick="remoteUpload(1);" value='开始保存远程图片'>
</td>
</tr>
<tr>
<td width="163" height="74" align="center" bgcolor="#ffffff"><b>首页图片：</b></td>
<td width="720" colspan="3" align="left" valign="top" bgcolor="#E9F7FE"><input name="ImageUrl" type="text" id="ImageUrl" size="60" value="<%=Rs22("index_page_pic")%>" onpropertychange="document.all.pre.src=this.value;">
<input type="hidden" name="UploadFileList" id="UploadFileList" onChange="doChange(this,document.myform.ImageFileList)" value="<%=Rs22("Uploadfile_list")%>">
<br>直接从上传图片中选择：
<%
Function Initpics(UploadFileList, ImageUrl)
Dim i
InitSelect = "<select name='ImageFileList' onChange=""ImageUrl.value=this.value;"">"
InitSelect = InitSelect & "<option value=''>不选择首页推荐图片</option>"
If Not IsNull(UploadFileList) Then
UploadFileList = Split(UploadFileList, "|")
For i = 0 To UBound(UploadFileList)
If UploadFileList(i) <> "" Then
InitSelect = InitSelect & "<option value=""" & UploadFileList(i) & """"
If UploadFileList(i) = ImageUrl Then
InitSelect = InitSelect & " selected"
End If
InitSelect = InitSelect & ">" & UploadFileList(i) & "</option>"
End If
Next
End If
Initpics = InitSelect & "</select>"
End Function
response.write Initpics(Rs22("Uploadfile_list"),Rs22("index_page_pic"))
%>
<input type='button' name='selectpic' value='从已上传图片或文件中选择' onclick='SelectPic()' class="button"> <br />
预览:<img src="<%=Rs22("index_page_pic")%>" width="80" height="72" id="pre"/></td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><b>初始点击数：</b></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3"><input name="AllHits" type="text" id="AllHits" size="15" value="<%=Rs22("Hits")%>">
<font color=red>*</font>
<b>被顶次数：</b><input name="dings" type="text" id="dings" size="10" value="<%=Rs22("dings")%>"> <font color=red>*</font>
<b>星级：</b>
<select name="star">
<option value="5"<%If Rs22("xingji") = 5 Then Response.Write (" selected")%>>★★★★★</option>
<option value="4"<%If Rs22("xingji") = 4 Then Response.Write (" selected")%>>★★★★</option>
<option value="3"<%If Rs22("xingji") = 3 Then Response.Write (" selected")%>>★★★</option>
<option value="2"<%If Rs22("xingji") = 2 Then Response.Write (" selected")%>>★★</option>
<option value="1"<%If Rs22("xingji") = 1 Then Response.Write (" selected")%>>★</option>
</select>
</td>
</tr>
<script language="javascript">
function aac(aaa){
var p=window.open("D_select_sev.asp?sys_content_type=<%=request("sys_content_type")%>&form=myform&field=c"+aaa+"&field2=s"+aaa,"","directorys=no,toolbar=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=750,height=170,top=150,left=100");
}
var org_pos=1;
var now_pos=org_pos;
function add_p(aa,bb){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td>下载地址"+now_pos+":<input name=c"+now_pos+" type=text value='"+aa+"' size=55 onclick='aac("+now_pos+");'>,<br>显示名称"+now_pos+":<input name=s"+now_pos+" type=text value='"+bb+"' size=55></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除</a>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function add_p_b(){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td>下载地址"+now_pos+":<input name=c"+now_pos+" type=text value='' size=55 onclick='aac("+now_pos+");'>,<br>显示名称"+now_pos+":<input name=s"+now_pos+" type=text value='' size=55></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除</a>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><b>下载地址：</b></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<table width=571 id="parms" name="parms">
<tr align="left">
<td>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="163" height="30" align="center" bgcolor="#ffffff"><b> </b></td>
<td width="720" align="left" bgcolor="#EDF8FE" colspan="3">
<br />
<a href="javascript:" onclick="add_p_b();"><font style="font-size:14px" color="#3300FF">点击本处添加下载地址</font></a>
<br /><br />
</td>
</tr>
<input type="hidden" name="params_len" id="params_len" value="" />
<tr>
<td width="703" height="30" align="center" bgcolor="#D5EFFD" colspan="4">
<input type="submit" value="修改" /></td>
</tr>
<tr>
<td width="703" height="80" align="center" bgcolor="#ffffff" colspan="4"></td>
</tr>
</table>
</td>
</tr>
</table>
<input type="hidden" name="sys_content_type" value="<%=request("sys_content_type")%>"/>
<input type="hidden" name="id" value="<%=request("id")%>"/>
</form>
<form name="remoteuploadb" id="remoteuploadb" action="../D_remoteupload.asp" method="post" target="remoteupload">
<input type="hidden" name="content_UploadText" value=""/>
</form>
<iframe name="remoteupload" width="0" height="0"></iframe>
</div>
<script language=javascript>
AJAXfade(1,'l_list')
<%
if trim(rs22("down_url_list"))="" then
lll=-1
%>
var aa = document.getElementById("params_len");
aa.value=0;
<%
else
ssssppp=split(rs22("down_url_list"),"|")
lll=ubound(ssssppp)
end if
%>
<% for i=0 to lll
ssssppp2=split(ssssppp(i),",")
sss1=ssssppp2(0)
sss2=ssssppp2(1)
%>
add_p("<%=sss1%>","<%=sss2%>");
<%next%>
</script>
<%
AJAXcloseLoader()
%>